For this example we will try to show the previous analysis the relationship between MPG (Miles Per Gallon) and types of vehicle (automatic/ manual)

library(plotly)
library(webshot)
data(mtcars)
mtcars$am <- as.factor(mtcars$am)
levels(mtcars$am) <- c("Automatic", "Manual")

p1 <- plot_ly(
  data = mtcars,
  y = ~mpg,
  x = ~am,
  type = "box"
)

p1